﻿Public Class calibreVO



    Private _id_calibre As Integer
    Private _calibre As String
    Private _restrito As Boolean
    Private _cano_raiado As Boolean
    Private _fuzil As Boolean
  

    '-------------------------------------
    ' MÉTODO CONSTRUTOR SEM PARAMETROS
    '-------------------------------------

    Sub New()
        _id_calibre = Nothing
        _calibre = Nothing
        _restrito = Nothing
        _cano_raiado = Nothing
        _fuzil = Nothing
    End Sub

    '-------------------------------------
    ' MÉTODO CONSTRUTOR COM PARAMETROS
    '-------------------------------------

    Sub New(ByVal id_calibre As Integer, _
            ByVal calibre As String, _
            ByVal restrito As Boolean, _
             ByVal cano_raiado As Boolean, _
              ByVal fuzil As Boolean)

        _id_calibre = id_calibre
        _calibre = calibre
        _restrito = restrito
        _cano_raiado = restrito
    End Sub

    Public Property ID_CALIBRE() As Integer
        Get

            Return _id_calibre

        End Get
        Set(ByVal value As Integer)

            _id_calibre = value

        End Set
    End Property

    Public Property CALIBRE() As String
        Get

            Return _calibre

        End Get
        Set(ByVal value As String)

            _calibre = value

        End Set
    End Property

    Public Property RESTRITO() As Boolean
        Get
            Return _restrito
        End Get
        Set(ByVal value As Boolean)
            _restrito = value
        End Set
    End Property

    Public Property CANO_RAIADO() As Boolean
        Get
            Return _cano_raiado
        End Get
        Set(ByVal value As Boolean)
            _cano_raiado = value
        End Set
    End Property

    Public Property FUZIL() As Boolean
        Get
            Return _fuzil
        End Get
        Set(ByVal value As Boolean)
            _fuzil = value
        End Set
    End Property

End Class

